home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / irc / BlackIRC.lha / BlackIRC / Rexx / OutputRAW.birx < prev    next >
Text File  |  1998-12-26  |  593b  |  28 lines
  1. /* Demo script for BlackIRC */
  2.  
  3. options results
  4. failat 21
  5.  
  6. 'ECHO <<OutputRaw>> Welcome!!'
  7. 'ECHO <<OutputRaw>> This little ARexx-script asks for new lines'
  8. 'ECHO <<OutputRaw>> as often as possible and outputs them as RAW'
  9. 'ECHO <<OutputRaw>> lines to the normal lister! Just a small example'
  10. 'ECHO <<OutputRaw>> to demonstrate, what is possible with BIRC.'
  11.  
  12. CURLINENUM
  13. lnnum=result
  14.  
  15. DO FOREVER
  16.         ollnnum=lnnum
  17.         CURLINENUM
  18.         lnnum=result
  19.  
  20.         if lnnum>ollnnum then do
  21.                 GETLASTLINE
  22.                 ll=result
  23.                 USERECHO ll
  24.         end
  25. END
  26.  
  27. EXIT
  28.